%Wypisuje korelacje miedzy capital services a Produkcja w przemysle

disp('Korelacja pomiedzy capital services a Produkcja w przemysle');
for i = 0:6
    cs = CS((7-i):(end),2);
    prod = [zeros(i,1); PROD(1:(end-1),2)];
    [kor p] = KorelacjaPrzes(cs, prod, i);
    disp(['Opoznienie ' num2str(i) ': ' num2str(kor) ', t-Student alfa = ' num2str(p)]);
end
disp(sprintf('\n\n'));

clear cs prod i kor p;